8.5 Hyperbolic integral functions.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    288928,       6421]
NotebookOptionsPosition[    279922,       6181]
NotebookOutlinePosition[    281519,       6233]
CellTagsIndexPosition[    281476,       6230]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[StyleBox["Rules for integrands involving \
hyperbolic integral functions",
  FontFamily->"Arial"]], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5758457803910656`*^9, 
   3.5758457938510847`*^9}, {3.5758458780912023`*^9, 
   3.5758458797312045`*^9}, {3.5758460250714083`*^9, 3.575846028691413*^9}, {
   3.5758461031815176`*^9, 3.575846103681518*^9}, {3.5758463018517957`*^9, 
   3.5758463042917986`*^9}, {3.5758464155019546`*^9, 3.575846417191957*^9}, {
   3.5758468610025787`*^9, 3.5758468696025906`*^9}, {3.5758469815427475`*^9, 
   3.5758469940427647`*^9}, {3.575847092102902*^9, 3.575847093372904*^9}, {
   3.5758472070230627`*^9, 3.5758472111630683`*^9}, {3.5758472852931724`*^9, 
   3.5758472911731806`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749680744223895`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.5749655766088924`*^9, 3.574965579268896*^9}, {
   3.5749659487994137`*^9, 3.5749659503394156`*^9}, 3.5749680744323893`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, 
   3.4943769419990377`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"Cosh", "[", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}]}], "]"}], "b"]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943767324987445`*^9, 3.4943767718487997`*^9, {3.4943769588690615`*^9, 
   3.4943769641790686`*^9}, 3.494377008729131*^9, {3.494388243118196*^9, 
   3.4943882602982197`*^9}, {3.4943893186497016`*^9, 3.4943893344197235`*^9}, 
   3.4943903346811237`*^9, 3.494390369711173*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494376911248995*^9, 3.4943882229281673`*^9, 3.4943892766196427`*^9, 
   3.4943903477711425`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"CoshIntegral", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494376911248995*^9, 3.4943882229281673`*^9, 3.4943892766196427`*^9, 
   3.4943903477711425`*^9, 3.4943912473724017`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, {3.574967563881675*^9, 3.5749675711016846`*^9}, 
   3.5749680744723897`*^9, 3.709441522798094*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"b", " ", "x"}], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.5749676217917557`*^9, 
   3.574967627621764*^9}, 3.5749680744923897`*^9, {3.5749682656926575`*^9, 
   3.5749682666126585`*^9}, {3.5749695193444123`*^9, 3.5749695195444126`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"SinhIntegral", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ExpIntegralE", "[", 
       RowBox[{"1", ",", 
        RowBox[{"-", "z"}]}], "]"}], "-", 
      RowBox[{"ExpIntegralE", "[", 
       RowBox[{"1", ",", "z"}], "]"}], "+", 
      RowBox[{"Log", "[", 
       RowBox[{"-", "z"}], "]"}], "-", 
      RowBox[{"Log", "[", "z", "]"}]}], ")"}]}]}]], "Input",
  CellChangeTimes->{{3.709432417715928*^9, 3.70943241931602*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, 
   3.4943769419990377`*^9, {3.4943772180994244`*^9, 3.4943772477194653`*^9}, {
   3.5749655965489206`*^9, 3.5749655996789246`*^9}, {3.5749676716318254`*^9, 
   3.5749676726018267`*^9}, {3.7094324052742167`*^9, 3.70943242560938*^9}, {
   3.7094412644048223`*^9, 3.709441269623232*^9}, {3.70944133954496*^9, 
   3.70944133954496*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"CoshIntegral", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ExpIntegralE", "[", 
       RowBox[{"1", ",", 
        RowBox[{"-", "z"}]}], "]"}], "+", 
      RowBox[{"ExpIntegralE", "[", 
       RowBox[{"1", ",", "z"}], "]"}], "+", 
      RowBox[{"Log", "[", 
       RowBox[{"-", "z"}], "]"}], "-", 
      RowBox[{"Log", "[", "z", "]"}]}], ")"}]}]}]], "Input",
  CellChangeTimes->{{3.709432417715928*^9, 3.70943241931602*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, 
   3.4943769419990377`*^9, {3.4943772180994244`*^9, 3.4943772477194653`*^9}, {
   3.5749655965489206`*^9, 3.5749655996789246`*^9}, {3.5749676716318254`*^9, 
   3.5749676726018267`*^9}, {3.7094324052742167`*^9, 3.70943242560938*^9}, {
   3.709432879095318*^9, 3.709432879095318*^9}, {3.709441346846773*^9, 
   3.709441361715*^9}, {3.709441423880514*^9, 3.709441423880514*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, 
   3.4943769419990377`*^9, {3.4943772180994244`*^9, 3.4943772477194653`*^9}, {
   3.5749655965489206`*^9, 3.5749655996789246`*^9}, {3.5749676716318254`*^9, 
   3.5749676726018267`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"b", " ", "x"}], "]"}], "x"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox["1", "2"]}]}], " ", "b", " ", "x", " ", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
      RowBox[{
       RowBox[{"-", "b"}], " ", "x"}]}], "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "b", " ", "x", " ", 
   RowBox[{"HypergeometricPFQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
     RowBox[{"b", " ", "x"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943767324987445`*^9, 3.4943767718487997`*^9, {3.4943769588690615`*^9, 
   3.4943769641790686`*^9}, 3.494377008729131*^9, {3.494377268429495*^9, 
   3.4943772786195087`*^9}, 3.4943773596696224`*^9, 3.49438842448845*^9, 
   3.4944374070688496`*^9, {3.574967642981786*^9, 3.5749676617618117`*^9}, 
   3.5749677736019683`*^9, 3.5749680744923897`*^9, 3.5749691615339117`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", "b", "*", "x", "*", 
     RowBox[{"HypergeometricPFQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "b"}], "*", "x"}]}], "]"}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", "b", "*", "x", "*", 
     RowBox[{"HypergeometricPFQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"b", "*", "x"}]}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494376911248995*^9, 3.494377118869285*^9, 3.494388363108364*^9, 
   3.548821865584739*^9, 3.548821954164863*^9, {3.574967679041836*^9, 
   3.57496768903185*^9}, {3.574967751411937*^9, 3.5749677647819557`*^9}, {
   3.574967916862169*^9, 3.5749679174021697`*^9}, 3.57496807450239*^9, 
   3.5749692274640036`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], "*", "b", "*", "x", "*", 
     RowBox[{"HypergeometricPFQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "b"}], "*", "x"}]}], "]"}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", "b", "*", "x", "*", 
     RowBox[{"HypergeometricPFQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"b", "*", "x"}]}], "]"}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{"EulerGamma", "*", 
     RowBox[{"Log", "[", "x", "]"}]}], " ", "+", " ", "\[IndentingNewLine]", 
    "  ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"b", "*", "x"}], "]"}], "^", "2"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494376911248995*^9, 3.494377118869285*^9, 3.494388363108364*^9, 
   3.548821865584739*^9, 3.548821954164863*^9, {3.574967679041836*^9, 
   3.57496768903185*^9}, {3.574967751411937*^9, 3.5749677647819557`*^9}, {
   3.574967879252116*^9, 3.5749679127321634`*^9}, 3.57496808891241*^9, {
   3.574969477564354*^9, 3.5749695041743913`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, 3.5749680745123897`*^9, 
   3.7094415187028866`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, 
   3.4943769419990377`*^9, {3.4943772180994244`*^9, 3.4943772477194653`*^9}, {
   3.574968298932704*^9, 3.574968298932704*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"d", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943767324987445`*^9, 3.4943767718487997`*^9, {3.4943769588690615`*^9, 
   3.4943769641790686`*^9}, 3.494377008729131*^9, {3.494377268429495*^9, 
   3.4943772786195087`*^9}, 3.4943773596696224`*^9, 3.49438842448845*^9, 
   3.4943894151898365`*^9, 3.494389535590005*^9, 3.494390431221259*^9, 
   3.494390498891354*^9, {3.7094415414671288`*^9, 3.7094415541543517`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494376911248995*^9, 3.494377118869285*^9, 3.494388363108364*^9, 
   3.494389442369875*^9, 3.494390445421279*^9, 3.548821243979868*^9, 
   3.5488213341299944`*^9, 3.7061416448683248`*^9, 3.7094414958792443`*^9, {
   3.709441563549969*^9, 3.709441622334075*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494376911248995*^9, 3.494377118869285*^9, 3.494388363108364*^9, 
   3.494389442369875*^9, 3.494390445421279*^9, 3.4943913734125786`*^9, 
   3.5488212461698713`*^9, 3.5488213386400003`*^9, 3.7061416448783245`*^9, 
   3.709441495894844*^9, {3.7094415660625734`*^9, 3.70944162494228*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    SuperscriptBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749660021894884`*^9, {3.574966095149618*^9, 
   3.5749660953396187`*^9}, 3.57496807454239*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965585238905*^9, 3.5749655878289084`*^9}, {
   3.5749660064894943`*^9, 3.5749660080794964`*^9}, 3.5749680745623894`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}, {
   3.4943769240690126`*^9, 3.4943769249790134`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.4943766924486885`*^9, 
   3.4943769377490315`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"SinhIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], "b"]}]}]}]}], "-", 
  RowBox[{"2", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4943767355687485`*^9, 3.4943768199788666`*^9, {
   3.4943769684490747`*^9, 3.494376969979077*^9}, 3.494377039419174*^9, 
   3.4943883001582756`*^9, 3.4943884099284296`*^9, 3.494389320459704*^9, 
   3.4943893606397605`*^9, 3.494390336701127*^9, 3.494390394531208*^9, {
   3.4943927457044992`*^9, 3.4943927720845366`*^9}, {3.5749682735426683`*^9, 
   3.574968278422675*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"SinhIntegral", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", "b"}]}], " ", "-",
     "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, 
   3.49438823183818*^9, 3.4943892839796534`*^9, 3.4943903540311513`*^9, 
   3.54882123834986*^9, 3.5488213248499813`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"CoshIntegral", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", "b"}]}], " ", "-",
     "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, 
   3.49438823183818*^9, 3.4943892839796534`*^9, 3.4943903540311513`*^9, 
   3.4943912564824142`*^9, 3.5488212403998632`*^9, 3.5488213285499864`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, {3.5749660021894884`*^9, 3.5749660376195383`*^9}, 
   3.5749680746123896`*^9, 3.7094441907477427`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"b", " ", "x"}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965612068942*^9, 3.5749656238789587`*^9}, {
   3.5749660472695513`*^9, 3.5749660474495516`*^9}, 3.57496807463239*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}, {
   3.4943769240690126`*^9, 3.4943769249790134`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.4943766924486885`*^9, {
   3.4943775147998395`*^9, 3.494377517179843*^9}, {3.5749684131528635`*^9, 
   3.5749684131528635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"b", " ", "x"}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"SinhIntegral", "[", 
          RowBox[{"b", " ", "x"}], "]"}], "2"]}], 
       RowBox[{"m", "+", "1"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["2", 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"b", " ", "x"}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"b", " ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4943767355687485`*^9, 3.4943768199788666`*^9, {
   3.4943769684490747`*^9, 3.494376969979077*^9}, 3.494377039419174*^9, {
   3.494377287279521*^9, 3.4943772905295258`*^9}, 3.4943776172899833`*^9, {
   3.4943776496300287`*^9, 3.4943776498100286`*^9}, {3.4943884306584587`*^9, 
   3.494388433178462*^9}, 3.4943894172598395`*^9, 3.4943895644900455`*^9, 
   3.4943904329012613`*^9, 3.4943905247013903`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"SinhIntegral", "[", 
        RowBox[{"b", "*", "x"}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"2", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"b", "*", "x"}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"b", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, 
   3.4943771262892957`*^9, 3.494388373038378*^9, 3.494389455289893*^9, 
   3.4943904550212927`*^9, 3.5488212499098763`*^9, 3.548821343520007*^9, 
   3.5749684193428726`*^9, 3.709441688407998*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"CoshIntegral", "[", 
        RowBox[{"b", "*", "x"}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"2", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"b", "*", "x"}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"b", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, 
   3.4943771262892957`*^9, 3.494388373038378*^9, 3.494389455289893*^9, 
   3.4943904550212927`*^9, 3.4943913839325933`*^9, 3.5488212514498787`*^9, 
   3.5488213485200143`*^9, 3.5749684221928763`*^9, 3.7094416884235983`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965633748973*^9, 3.574965646708991*^9}, 
   3.57496807468239*^9, 3.7094441923777447`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Iterated integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}, {
   3.4943769240690126`*^9, 3.4943769249790134`*^9}, {3.4943771890493836`*^9, 
   3.4943771905493855`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.4943766924486885`*^9, {
   3.4943775147998395`*^9, 3.494377517179843*^9}, {3.5749685299830275`*^9, 
   3.5749685299830275`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
        SuperscriptBox[
         RowBox[{"SinhIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["2", 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "c"}], "-", 
       RowBox[{"a", " ", "d"}]}], ")"}], " ", "m"}], 
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4943767355687485`*^9, 3.4943768199788666`*^9, {
   3.4943769684490747`*^9, 3.494376969979077*^9}, 3.494377039419174*^9, {
   3.494377296589534*^9, 3.4943772989995375`*^9}, {3.494377717460123*^9, 
   3.4943777346301475`*^9}, 3.494388441778474*^9, {3.4943925399642115`*^9, 
   3.494392540514212*^9}, {3.494437514859*^9, 3.4944375381790333`*^9}, {
   3.7094419423716774`*^9, 3.709441978554943*^9}, {3.709442550079383*^9, 
   3.709442552504388*^9}, {3.709442589306456*^9, 3.70944259161626*^9}, {
   3.7094427258245683`*^9, 3.709442734118183*^9}, {3.7094432453361206`*^9, 
   3.70944325046093*^9}, 3.7094433173026505`*^9, {3.70944355456042*^9, 
   3.709443554981621*^9}, {3.70944420792377*^9, 3.7094442404678183`*^9}, {
   3.709444290758893*^9, 3.7094442963039007`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"SinhIntegral", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"2", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", "*", "c"}], "-", 
       RowBox[{"a", "*", "d"}]}], ")"}], "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"SinhIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, {
   3.4943771262892957`*^9, 3.494377147409325*^9}, 3.494388385128395*^9, 
   3.494389463849905*^9, 3.4943904629313035`*^9, {3.548821254789883*^9, 
   3.5488212561998854`*^9}, {3.5488213536800213`*^9, 3.5488213579000273`*^9}, 
   3.5749685371930375`*^9, 3.7094416884235983`*^9, {3.7094443218189383`*^9, 
   3.7094443276689463`*^9}, 3.709444429261297*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"CoshIntegral", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"2", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", "*", "c"}], "-", 
       RowBox[{"a", "*", "d"}]}], ")"}], "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"CoshIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, {
   3.4943771262892957`*^9, 3.494377147409325*^9}, 3.494388385128395*^9, 
   3.494389463849905*^9, 3.4943904629313035`*^9, 3.4943913923026047`*^9, {
   3.548821258949889*^9, 3.5488212602198906`*^9}, {3.548821362520034*^9, 
   3.54882136688004*^9}, 3.5749685395530405`*^9, 3.709441688439198*^9, {
   3.70944432988795*^9, 3.7094443374489603`*^9}, {3.7094444336483145`*^9, 
   3.7094444437203283`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "+", "2"}], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.5749656557890034`*^9, 3.574965661449011*^9}, {
   3.574966072079586*^9, 3.5749660722995863`*^9}, 3.57496807475239*^9, {
   3.7094445158144364`*^9, 3.7094445158144364`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}, {
   3.4943769240690126`*^9, 3.4943769249790134`*^9}, {3.494377197479395*^9, 
   3.494377199359398*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "2"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.4943766924486885`*^9, {
   3.4943775147998395`*^9, 3.494377517179843*^9}, {3.494377552299892*^9, 
   3.4943775542698946`*^9}, {3.709444522473447*^9, 3.709444522473447*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", " ", 
        SuperscriptBox["x", 
         RowBox[{"m", "+", "2"}]], " ", 
        SuperscriptBox[
         RowBox[{"SinhIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["x", 
     RowBox[{"m", "+", "1"}]], " ", 
    SuperscriptBox[
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], 
   RowBox[{"m", "+", "1"}]], "-", "    ", "\[IndentingNewLine]", "   ", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b"}], 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "+", "1"}]], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "2"}], ")"}]}], 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "+", "1"}]], " ", 
     SuperscriptBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4943767355687485`*^9, 3.4943768199788666`*^9, {
   3.4943769684490747`*^9, 3.494376969979077*^9}, 3.494377039419174*^9, {
   3.4943773052395463`*^9, 3.494377307039549*^9}, {3.494377791370227*^9, 
   3.4943778007502403`*^9}, 3.4943884504884863`*^9, {3.4943896848302145`*^9, 
   3.4943896921402245`*^9}, 3.494390436701267*^9, {3.494390614351516*^9, 
   3.494390622141526*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"SinhIntegral", "[", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}],
     "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "*", 
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
     RowBox[{
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", "  ", 
     RowBox[{"2", "*", 
      RowBox[{"b", "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "*", 
         RowBox[{"Sinh", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "*", 
         RowBox[{"SinhIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", 
     "\n", "  ", 
     RowBox[{"b", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"SinhIntegral", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}]}], ",", "x"}], 
       "]"}]}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"ILtQ", "[", 
      RowBox[{"m", ",", 
       RowBox[{"-", "2"}]}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, {
   3.4943771262892957`*^9, 3.4943771730993614`*^9}, 3.4943883954784093`*^9, 
   3.4943894723399167`*^9, 3.494390470411314*^9, {3.5488212632798953`*^9, 
   3.5488212655698986`*^9}, {3.5488213728800488`*^9, 3.548821376990054*^9}, 
   3.709444565373517*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"CoshIntegral", "[", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}],
     "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "*", 
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
     RowBox[{
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", "  ", 
     RowBox[{"2", "*", 
      RowBox[{"b", "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "*", 
         RowBox[{"Cosh", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "*", 
         RowBox[{"CoshIntegral", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", 
     "\n", "  ", 
     RowBox[{"b", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"CoshIntegral", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}]}], ",", "x"}], 
       "]"}]}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"ILtQ", "[", 
      RowBox[{"m", ",", 
       RowBox[{"-", "2"}]}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494376918689005*^9, {
   3.4943771262892957`*^9, 3.4943771730993614`*^9}, 3.4943883954784093`*^9, 
   3.4943894723399167`*^9, 3.494390470411314*^9, 3.494391400042616*^9, {
   3.5488212680799017`*^9, 3.5488212698899045`*^9}, {3.5488213816900606`*^9, 
   3.548821387310069*^9}, 3.7094445696445227`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, {3.574966106889635*^9, 3.5749661252996607`*^9}, {
   3.5749679721422462`*^9, 3.5749679723122463`*^9}, {3.57496807483239*^9, 
   3.5749681015624275`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.5749656809390383`*^9, 
   3.5749656839990425`*^9}, {3.5749661271696634`*^9, 3.574966128249665*^9}, {
   3.57496807484239*^9, 3.5749681015824275`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}, {
   3.4943769240690126`*^9, 3.4943769249790134`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.494376473578382*^9, 
   3.4943764762183857`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  RowBox[{
   FractionBox["d", "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Cosh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943778890103636`*^9, 3.4943779672604733`*^9, 3.4943885642486453`*^9, 
   3.4943886071087055`*^9, 3.494389754330312*^9, 3.4943898173303995`*^9, {
   3.494390675111601*^9, 3.494390677481604*^9}, 3.494390729101676*^9, {
   3.494392792574565*^9, 3.494392798954574*^9}, {3.5749686448931885`*^9, 
   3.5749686486931934`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494377924960414*^9, 
   3.4943885498586254`*^9, 3.4943897709903345`*^9, 3.4943906965416307`*^9, 
   3.5488212735799093`*^9, 3.5488213932500772`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494377924960414*^9, 
   3.4943885498586254`*^9, 3.4943897709903345`*^9, 3.4943906965416307`*^9, 
   3.4943909485619836`*^9, 3.4943918219732065`*^9, 3.5488212750299115`*^9, 
   3.5488213982800837`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, {3.574966106889635*^9, 3.5749661580597067`*^9}, {
   3.5749680748923903`*^9, 3.5749681016424274`*^9}, 3.709444632775614*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965700869066*^9, 3.574965711059081*^9}, {
   3.574966193289756*^9, 3.5749661934797564`*^9}, {3.5749680749023905`*^9, 
   3.5749681016524277`*^9}, 3.7094446442716312`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, {
   3.494378081770633*^9, 3.494378084740638*^9}, {3.5749687417133236`*^9, 
   3.5749687417133236`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["d", "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"Cosh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"f", " ", "m"}], "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943767324987445`*^9, 3.4943767718487997`*^9, 3.4943780645006094`*^9, 
   3.494378152830733*^9, 3.4943887390988903`*^9, {3.494388806228984*^9, 
   3.494388817629*^9}, 3.494389868830472*^9, {3.4943899323305607`*^9, 
   3.4943899444905777`*^9}, {3.494390801701778*^9, 3.4943908065017843`*^9}, {
   3.4943908533918505`*^9, 3.49439086051186*^9}, {3.574968722593297*^9, 
   3.574968729693307*^9}, {3.7094446465916348`*^9, 3.709444653242644*^9}, {
   3.7094446970687075`*^9, 3.7094446975787086`*^9}, {3.709444931402072*^9, 
   3.709444934733076*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"f", "*", 
     RowBox[{"m", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494378040200575*^9, 3.4943886971888313`*^9, 3.494389884120493*^9, 
   3.4943907835317526`*^9, {3.5488212785799165`*^9, 3.5488212795199175`*^9}, {
   3.548821403050091*^9, 3.548821406240095*^9}, {3.7094447453357863`*^9, 
   3.709444788308852*^9}, {3.709444836457926*^9, 3.7094448372379265`*^9}, {
   3.709444887701003*^9, 3.7094448884810047`*^9}, 3.709445025223213*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"f", "*", 
     RowBox[{"m", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494378040200575*^9, 3.4943886971888313`*^9, 3.494389884120493*^9, 
   3.4943907835317526`*^9, 3.494391033472102*^9, 3.494391893313306*^9, {
   3.548821281749921*^9, 3.5488212827099223`*^9}, {3.548821410290101*^9, 
   3.548821413420105*^9}, {3.7094447475667896`*^9, 3.709444799333871*^9}, {
   3.7094448394889297`*^9, 3.709444840218931*^9}, {3.709444889681006*^9, 
   3.709444890451007*^9}, 3.7094450270332155`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "+", "1"}], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965719209092*^9, 3.5749657233690977`*^9}, {
   3.5749680749623904`*^9, 3.5749681017124276`*^9}, 3.709444662453657*^9, {
   3.709445052504256*^9, 3.709445052504256*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "1"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.4943766924486885`*^9, {
   3.4943780879806423`*^9, 3.4943780935506496`*^9}, {3.7094450505442533`*^9, 
   3.7094450505442533`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], 
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["d", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4943767355687485`*^9, 3.4943768199788666`*^9, 
   3.4943780695606165`*^9, 3.494378211280815*^9, 3.494388748448903*^9, {
   3.494388879559087*^9, 3.4943888873190975`*^9}, 3.4943898703504744`*^9, {
   3.494389985480635*^9, 3.4943900000106554`*^9}, {3.494390803681781*^9, 
   3.494390808331787*^9}, {3.494390897881912*^9, 3.4943909062919245`*^9}, {
   3.574968774123369*^9, 3.574968780543378*^9}, {3.7094446699536686`*^9, 
   3.7094447169877386`*^9}, {3.7094449132400403`*^9, 3.7094449163880463`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494378047310585*^9, 
   3.494388705238843*^9, 3.494389890240502*^9, 3.4943907893617606`*^9, {
   3.5488212856799264`*^9, 3.548821286619928*^9}, {3.548821419100113*^9, 
   3.5488214256401224`*^9}, {3.709444751537795*^9, 3.7094447633268147`*^9}, {
   3.7094448210389023`*^9, 3.7094448255589085`*^9}, {3.709444855798954*^9, 
   3.7094448857110004`*^9}, 3.7094450351322303`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494378047310585*^9, 
   3.494388705238843*^9, 3.494389890240502*^9, 3.4943907893617606`*^9, 
   3.494391039782111*^9, 3.494391899653315*^9, {3.548821288859931*^9, 
   3.5488212899999323`*^9}, {3.5488214298301287`*^9, 3.548821432990133*^9}, {
   3.709444757057804*^9, 3.7094447665278196`*^9}, {3.7094448283269143`*^9, 
   3.709444831386918*^9}, {3.709444868379974*^9, 3.7094448832109966`*^9}, 
   3.7094450373542347`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"Cosh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, {3.574966106889635*^9, 3.5749661252996607`*^9}, 
   3.5749662503098354`*^9, {3.5749663036799107`*^9, 3.574966303859911*^9}, {
   3.5749679744622498`*^9, 3.57496797465225*^9}, 3.57496807501239*^9, 
   3.5749681118024416`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.5749657424191246`*^9, 3.574965744989128*^9}, {
   3.5749662535498405`*^9, 3.574966254639842*^9}, 3.5749680750223904`*^9, 
   3.574968111812442*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}, {
   3.4943769240690126`*^9, 3.4943769249790134`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.494376473578382*^9, 
   3.4943764762183857`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Cosh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  RowBox[{
   FractionBox["d", "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Sinh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943778890103636`*^9, 3.4943779672604733`*^9, 3.4943885642486453`*^9, 
   3.4943886071087055`*^9, 3.494389754330312*^9, 3.4943898173303995`*^9, {
   3.494390675111601*^9, 3.494390677481604*^9}, 3.494390729101676*^9, {
   3.4943909557519937`*^9, 3.4943909797620273`*^9}, {3.4943928180746007`*^9, 
   3.4943928249746103`*^9}, {3.57496882450344*^9, 3.574968825743441*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494377924960414*^9, 
   3.4943885498586254`*^9, 3.4943897709903345`*^9, 3.4943906965416307`*^9, 
   3.4943909485619836`*^9, 3.5488212941099386`*^9, 3.5488214382701397`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494377924960414*^9, 
   3.4943885498586254`*^9, 3.4943897709903345`*^9, 3.4943906965416307`*^9, 
   3.4943916042929015`*^9, 3.548821296119941*^9, 3.548821442460146*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, {3.574966106889635*^9, 3.5749661580597067`*^9}, 
   3.5749662729598675`*^9, 3.5749680750723906`*^9, 3.5749681118724422`*^9, 
   3.709445115915355*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965771439165*^9, 3.5749657824491806`*^9}, {
   3.5749662786598754`*^9, 3.574966278869876*^9}, 3.57496807509239*^9, 
   3.5749681118924417`*^9, 3.709445117825358*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494376680688672*^9, {
   3.494378081770633*^9, 3.494378084740638*^9}, {3.574968878283515*^9, 
   3.574968878283515*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Cosh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["d", "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"f", " ", "m"}], "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4943764434083395`*^9, 3.494376466318372*^9}, 
   3.4943767324987445`*^9, 3.4943767718487997`*^9, 3.4943780645006094`*^9, 
   3.494378152830733*^9, 3.4943887390988903`*^9, {3.494388806228984*^9, 
   3.494388817629*^9}, 3.494389868830472*^9, {3.4943899323305607`*^9, 
   3.4943899444905777`*^9}, {3.494390801701778*^9, 3.4943908065017843`*^9}, {
   3.4943908533918505`*^9, 3.49439086051186*^9}, 3.4943910185020814`*^9, {
   3.4943911014321976`*^9, 3.494391109672209*^9}, {3.574968915353567*^9, 
   3.574968921983576*^9}, {3.7094451198563623`*^9, 3.7094451708664384`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{"f", "*", 
     RowBox[{"m", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494378040200575*^9, 3.4943886971888313`*^9, 3.494389884120493*^9, 
   3.4943907835317526`*^9, 3.494391033472102*^9, {3.5488213006899476`*^9, 
   3.548821301679949*^9}, {3.5488214472101526`*^9, 3.548821450440157*^9}, 
   3.574968890013531*^9, 3.709441688439198*^9, {3.709445214418502*^9, 
   3.7094452786175976`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{"f", "*", 
     RowBox[{"m", "/", "b"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943019932921624`*^9, 
   3.4943019969737687`*^9}, 3.4943764270183167`*^9, 3.494376569368516*^9, 
   3.494378040200575*^9, 3.4943886971888313`*^9, 3.494389884120493*^9, 
   3.4943907835317526`*^9, 3.4943916847430143`*^9, {3.548821303909952*^9, 
   3.548821305259954*^9}, {3.548821454860163*^9, 3.5488214579101677`*^9}, 
   3.574968893033536*^9, 3.7094416884547977`*^9, {3.7094452170685053`*^9, 
   3.7094452820986023`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "+", "1"}], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965806159214*^9, 3.5749658101492195`*^9}, 
   3.5749680751423903`*^9, 3.5749681115424414`*^9, 3.7094451518264093`*^9, {
   3.709445198144479*^9, 3.709445198144479*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494376654198635*^9, 3.494376656118637*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "1"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.4943766924486885`*^9, {
   3.4943780879806423`*^9, 3.4943780935506496`*^9}, {3.709445200654482*^9, 
   3.709445200654482*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Cosh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], 
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["d", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"Cosh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4943767355687485`*^9, 3.4943768199788666`*^9, 
   3.4943780695606165`*^9, 3.494378211280815*^9, 3.494388748448903*^9, {
   3.494388879559087*^9, 3.4943888873190975`*^9}, 3.4943898703504744`*^9, {
   3.494389985480635*^9, 3.4943900000106554`*^9}, {3.494390803681781*^9, 
   3.494390808331787*^9}, {3.494390897881912*^9, 3.4943909062919245`*^9}, 
   3.4943910200420837`*^9, {3.494391161232281*^9, 3.4943911698422933`*^9}, {
   3.5749689322835903`*^9, 3.5749689392336*^9}, {3.7094451538674126`*^9, 
   3.7094451870874624`*^9}, {3.709445311536646*^9, 3.7094453140966496`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494378047310585*^9, 
   3.494388705238843*^9, 3.494389890240502*^9, 3.4943907893617606`*^9, 
   3.494391039782111*^9, {3.548821308269958*^9, 3.5488213093399596`*^9}, {
   3.5488214637301755`*^9, 3.5488214670201807`*^9}, {3.709445225387519*^9, 
   3.7094452601045713`*^9}, {3.709445292359617*^9, 3.709445295949623*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "*", 
        RowBox[{"CoshIntegral", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.4943020002185745`*^9, 
   3.494302004430582*^9}, 3.4943765886185427`*^9, 3.494378047310585*^9, 
   3.494388705238843*^9, 3.494389890240502*^9, 3.4943907893617606`*^9, 
   3.4943916916430235`*^9, {3.548821311689963*^9, 3.5488213128199644`*^9}, {
   3.548821471260186*^9, 3.548821474730191*^9}, {3.7094452275975227`*^9, 
   3.7094452656675787`*^9}, {3.7094452988496275`*^9, 3.7094453020086317`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.57496245323452*^9}, 3.7094967868381433`*^9, {
   3.709497602398791*^9, 3.7094976398549333`*^9}, {3.709497795152816*^9, 
   3.7094977978639708`*^9}, {3.7095251211553674`*^9, 3.709525121329377*^9}, {
   3.7230827547896986`*^9, 3.723082766892391*^9}, 3.7230869941651773`*^9, {
   3.7230886124397373`*^9, 3.723088612640749*^9}, {3.7230899266009026`*^9, 
   3.72308992690092*^9}, 3.7230900100246744`*^9, 3.7230911875870275`*^9, 
   3.723092191336438*^9, 3.7233437547418327`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9, {3.723081681033283*^9, 
   3.723081692283927*^9}, {3.723082505411435*^9, 3.7230825282757425`*^9}, 
   3.7230827268050985`*^9, {3.7230827704735956`*^9, 3.7230827718686757`*^9}, 
   3.7230869946772065`*^9, 3.723090010631709*^9, 3.723091203098914*^9, 
   3.7230921913514395`*^9, 3.7233437552538614`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
   "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "d", " ", "n", " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
    RowBox[{"x", " ", 
     RowBox[{"(", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], ")"}]}]]}]],
  CellChangeTimes->{{3.723081786820334*^9, 3.723081824585494*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.7230818341590414`*^9, 3.7230818410724373`*^9}, {
   3.723081935599844*^9, 3.723081935599844*^9}, {3.7230869954982533`*^9, 
   3.7230869954982533`*^9}, {3.7230870797150707`*^9, 
   3.7230870797150707`*^9}, {3.723088204633412*^9, 3.723088204633412*^9}, {
   3.723090011286747*^9, 3.723090011286747*^9}, {3.7230900581754284`*^9, 
   3.723090085531993*^9}, {3.723090195432279*^9, 3.723090195432279*^9}, {
   3.723091203613944*^9, 3.723091203613944*^9}, {3.7230913486512394`*^9, 
   3.7230913486512394`*^9}, 3.72309219135944*^9, {3.723092242857385*^9, 
   3.723092242857385*^9}, {3.7233437557388897`*^9, 3.723343756598939*^9}, {
   3.7233440902520227`*^9, 3.7233440902520227`*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "x"}]}], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}]}], "-", 
  RowBox[{"b", " ", "d", " ", "n", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sinh", "[", 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}, {3.723081710084945*^9, 
   3.72308175719864*^9}, {3.723081856148299*^9, 3.7230819091783323`*^9}, 
   3.723081945182392*^9, {3.7230820167834873`*^9, 3.7230820234358673`*^9}, {
   3.7230825485209007`*^9, 3.7230825772195425`*^9}, 3.7230831000334454`*^9, {
   3.7230869961272893`*^9, 3.723086996711323*^9}, {3.7230871119909163`*^9, 
   3.723087119022319*^9}, {3.7230881951808715`*^9, 3.7230881984550586`*^9}, {
   3.723090011816777*^9, 3.7230900123528075`*^9}, {3.7230901182848663`*^9, 
   3.723090129134487*^9}, {3.723090218500599*^9, 3.72309022673407*^9}, {
   3.7230912041069717`*^9, 3.723091204563998*^9}, {3.72309136841537*^9, 
   3.723091387981489*^9}, {3.72309219136544*^9, 3.7230921913714404`*^9}, 
   3.723092290254096*^9, {3.723343757094967*^9, 3.7233437583590393`*^9}, 
   3.7233440994875507`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d_.", "*", 
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}]}], " ", "-", 
    " ", 
    RowBox[{"b", "*", "d", "*", "n", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"d", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"d", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826351638565`*^9}, 3.7230826785733395`*^9, {3.72308699736736*^9, 
   3.7230869979593945`*^9}, {3.7230881677733035`*^9, 3.7230881727545886`*^9}, 
   3.7230882439416604`*^9, {3.7230885283159256`*^9, 3.723088529021966*^9}, {
   3.723090013033847*^9, 3.7230900136338806`*^9}, 3.723090480356576*^9, {
   3.723091205002023*^9, 3.7230912053960457`*^9}, 3.723091671382699*^9, {
   3.723091705525652*^9, 3.7230917126820607`*^9}, {3.723092191379441*^9, 
   3.7230921913854413`*^9}, 3.7230922929932528`*^9, {3.72334380207154*^9, 
   3.7233438030315943`*^9}, 3.723343841511795*^9, 3.7233438735126257`*^9, 
   3.7233441113152275`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"CoshIntegral", "[", 
     RowBox[{"d_.", "*", 
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}]}], " ", "-", 
    " ", 
    RowBox[{"b", "*", "d", "*", "n", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"d", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"d", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826351638565`*^9}, 3.7230826785733395`*^9, {3.72308699736736*^9, 
   3.7230869979593945`*^9}, {3.7230881677733035`*^9, 3.7230881727545886`*^9}, 
   3.7230882439416604`*^9, {3.7230885283159256`*^9, 3.723088529021966*^9}, {
   3.723090013033847*^9, 3.7230900136338806`*^9}, 3.723090480356576*^9, {
   3.723091205002023*^9, 3.7230912053960457`*^9}, 3.723091671382699*^9, {
   3.723091705525652*^9, 3.7230917126820607`*^9}, {3.723091780049914*^9, 
   3.72309182665658*^9}, {3.72309221531481*^9, 3.7230922153248105`*^9}, 
   3.7230922953123856`*^9, {3.7233438036956325`*^9, 3.7233438044646764`*^9}, 
   3.7233438421278305`*^9, 3.723343875391733*^9, 3.7233441135753565`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9, {3.723081681033283*^9, 
   3.723081692283927*^9}, {3.723082505411435*^9, 3.7230825282757425`*^9}, 
   3.7230827268050985`*^9, {3.7230827704735956`*^9, 3.7230827718686757`*^9}, {
   3.723082930805766*^9, 3.7230829462486496`*^9}, 3.7230870129262505`*^9, 
   3.723090014199913*^9, 3.723091205803069*^9, 3.7230921913934417`*^9, 
   3.7233437590310774`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.7230829601854467`*^9, 3.7230829628055964`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"F", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}], "]"}], "x"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", "x", "]"}], ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.495321989219356*^9, 3.4953835047314157`*^9, 3.4953841387223034`*^9, 
   3.495384868433325*^9, {3.4953876713659415`*^9, 3.495387673145944*^9}, {
   3.4953891516580143`*^9, 3.495389154318018*^9}, 3.4953892091980944`*^9, {
   3.4953892828081975`*^9, 3.495389298008219*^9}, {3.7151167463770504`*^9, 
   3.7151167463770504`*^9}, {3.723063218657098*^9, 3.723063218657098*^9}, {
   3.723071513604542*^9, 3.723071513604542*^9}, {3.723071765282937*^9, 
   3.723071765282937*^9}, {3.7230718882389693`*^9, 3.7230719475683627`*^9}, {
   3.723071995683115*^9, 3.723071995683115*^9}, {3.7230720643290415`*^9, 
   3.723072075416675*^9}, {3.723083069080675*^9, 3.723083069080675*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.72308307178683*^9, 3.7230830719318385`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}], "]"}], ",", "x", ",", 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}, {3.723081710084945*^9, 
   3.72308175719864*^9}, {3.723081856148299*^9, 3.7230819091783323`*^9}, 
   3.723081945182392*^9, {3.7230820167834873`*^9, 3.7230820234358673`*^9}, {
   3.7230825485209007`*^9, 3.7230825772195425`*^9}, {3.7230830782642*^9, 
   3.723083091262944*^9}, {3.7230831267099714`*^9, 3.723083140730773*^9}, {
   3.7230870142063236`*^9, 3.723087014806358*^9}, {3.7230900149769573`*^9, 
   3.723090015552991*^9}, {3.7230912061960917`*^9, 3.723091206603115*^9}, {
   3.723092191400442*^9, 3.7230921914064426`*^9}, 3.7233437595911098`*^9, {
   3.7233441356796207`*^9, 3.7233441405038967`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"F_", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}]}], "]"}], ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "n"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"SinhIntegral", ",", "CoshIntegral"}], "}"}], ",", "x"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826351638565`*^9}, 3.7230826785733395`*^9, {3.72308316585121*^9, 
   3.72308319434584*^9}, {3.7230857267446847`*^9, 3.72308573784832*^9}, 
   3.723087018238554*^9, {3.7230883716949673`*^9, 3.723088374085104*^9}, 
   3.7230900160730205`*^9, {3.723090376117614*^9, 3.7230903929545765`*^9}, {
   3.7230912070361395`*^9, 3.7230912074331627`*^9}, {3.723091908727274*^9, 
   3.723091939922058*^9}, {3.7230921914134426`*^9, 3.7230922153468113`*^9}, 
   3.7233438427748675`*^9, 3.7233438773358445`*^9, {3.723344147258283*^9, 
   3.723344151805543*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9, {3.723081681033283*^9, 
   3.723081692283927*^9}, {3.723082505411435*^9, 3.7230825306638794`*^9}, {
   3.723082773250755*^9, 3.723082774206809*^9}, {3.7230829324188585`*^9, 
   3.72308293261687*^9}, 3.7230870228608184`*^9, 3.723090016648053*^9, 
   3.7230912078181844`*^9, 3.723092191421443*^9, 3.7233436996556816`*^9, 
   3.7233437599901323`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
   "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "d", " ", "n", " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
    RowBox[{"x", " ", 
     RowBox[{"(", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], ")"}]}]]}]],
  CellChangeTimes->{{3.723081786820334*^9, 3.723081824585494*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.7230818341590414`*^9, 3.7230818410724373`*^9}, {
   3.723081935599844*^9, 3.723081935599844*^9}, {3.7230869954982533`*^9, 
   3.7230869954982533`*^9}, {3.7230870797150707`*^9, 
   3.7230870797150707`*^9}, {3.723088204633412*^9, 3.723088204633412*^9}, {
   3.723090011286747*^9, 3.723090011286747*^9}, {3.7230900581754284`*^9, 
   3.723090085531993*^9}, {3.723090195432279*^9, 3.723090195432279*^9}, {
   3.723091203613944*^9, 3.723091203613944*^9}, {3.7230913486512394`*^9, 
   3.7230913486512394`*^9}, 3.72309219135944*^9, {3.723092242857385*^9, 
   3.723092242857385*^9}, {3.7233437606361694`*^9, 3.7233437614862185`*^9}, {
   3.7233441797741427`*^9, 3.7233441801901665`*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    RowBox[{"SinhIntegral", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"SinhIntegral", "[", 
         RowBox[{"d", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Log", "[", 
              RowBox[{"c", " ", 
               SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "d", " ", "n"}], 
    RowBox[{"m", "+", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
       RowBox[{"Sinh", "[", 
        RowBox[{"d", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}, {3.723081710084945*^9, 
   3.72308175719864*^9}, {3.723081856148299*^9, 3.7230819091783323`*^9}, 
   3.723081945182392*^9, {3.7230820167834873`*^9, 3.7230820234358673`*^9}, 
   3.7230825350871325`*^9, 3.7230831072968607`*^9, {3.723087026312016*^9, 
   3.723087026800044*^9}, {3.7230884239089537`*^9, 3.7230884478573236`*^9}, {
   3.723090017850122*^9, 3.7230900183221493`*^9}, {3.723090539893981*^9, 
   3.723090563616338*^9}, {3.7230906670522547`*^9, 3.7230907186932077`*^9}, {
   3.723090777613578*^9, 3.7230907990568047`*^9}, {3.7230912087652383`*^9, 
   3.7230912091652613`*^9}, {3.7230919761491303`*^9, 3.723091976510151*^9}, {
   3.7230920397127657`*^9, 3.723092061535014*^9}, {3.723092191434444*^9, 
   3.7230921914404445`*^9}, 3.7230923531776953`*^9, {3.7233437005547333`*^9, 
   3.723343702330835*^9}, {3.723343761992247*^9, 3.723343763369326*^9}, {
   3.723344186805545*^9, 3.723344187148565*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"SinhIntegral", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"SinhIntegral", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Sinh", "[", 
          RowBox[{"d", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"d", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}]}]}], ",",
        "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.723087028120119*^9, 
   3.7230870286411495`*^9}, {3.7230884847484336`*^9, 3.723088524321697*^9}, {
   3.7230900188111773`*^9, 3.72309001973123*^9}, 3.723090858456202*^9, {
   3.7230912096202874`*^9, 3.7230912100753136`*^9}, 3.723092109965784*^9, {
   3.723092191448445*^9, 3.7230921914554453`*^9}, 3.7230923686435795`*^9, {
   3.723343705865037*^9, 3.723343708528189*^9}, {3.7233438052407207`*^9, 
   3.7233438060287657`*^9}, 3.7233438434409056`*^9, 3.7233438781848927`*^9, {
   3.7233441973531485`*^9, 3.723344201169367*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"CoshIntegral", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"CoshIntegral", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Cosh", "[", 
          RowBox[{"d", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"d", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}]}]}], ",",
        "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.723087028120119*^9, 
   3.7230870286411495`*^9}, {3.7230884847484336`*^9, 3.723088524321697*^9}, {
   3.7230900188111773`*^9, 3.72309001973123*^9}, 3.723090858456202*^9, {
   3.7230912096202874`*^9, 3.7230912100753136`*^9}, {3.723092109965784*^9, 
   3.7230921288838663`*^9}, {3.723092215355812*^9, 3.7230922153628125`*^9}, 
   3.7230923718797646`*^9, {3.7233437091452246`*^9, 3.72334371133735*^9}, {
   3.7233438074578476`*^9, 3.7233438088179255`*^9}, 3.723343844113944*^9, 
   3.723343878888933*^9, 3.7233442076597376`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "involving", " ", 
      "hyperbolic", " ", "integral", " ", "functions"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2726, 41, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[3296, 65, 3181, 50, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6502, 119, 4557, 69, 103, "Subsubtitle"],
Cell[11062, 190, 101, 1, 67, "Subsubsection"],
Cell[11166, 193, 760, 11, 47, "Subsubsection"],
Cell[11929, 206, 1896, 40, 114, "Subsubtitle"],
Cell[13828, 248, 795, 11, 67, "Subsubsection"],
Cell[14626, 261, 1176, 32, 202, "Code"],
Cell[15805, 295, 1205, 32, 222, "Code"],
Cell[17013, 329, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[17163, 336, 3392, 56, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[20580, 396, 4711, 71, 114, "Subsubtitle"],
Cell[25294, 469, 1644, 34, 90, "Subsubsection"],
Cell[26941, 505, 1687, 34, 71, "Subsubsection"],
Cell[28631, 541, 918, 13, 47, "Subsubsection"],
Cell[29552, 556, 2275, 47, 221, "Subsubtitle"],
Cell[31830, 605, 795, 11, 67, "Subsubsection"],
Cell[32628, 618, 1688, 41, 251, "Code"],
Cell[34319, 661, 2026, 50, 369, "Code"],
Cell[36348, 713, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[36498, 720, 4970, 82, 103, "Subsubtitle"],
Cell[41471, 804, 101, 1, 67, "Subsubsection"],
Cell[41575, 807, 964, 18, 50, "Subsubsection"],
Cell[42542, 827, 2704, 66, 128, "Subsubtitle"],
Cell[45249, 895, 795, 11, 67, "Subsubsection"],
Cell[46047, 908, 2410, 71, 251, "Code"],
Cell[48460, 981, 2435, 71, 271, "Code"],
Cell[50898, 1054, 113, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[51072, 1063, 3283, 52, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[54380, 1119, 4587, 70, 103, "Subsubtitle"],
Cell[58970, 1191, 204, 3, 67, "Subsubsection"],
Cell[59177, 1196, 762, 11, 47, "Subsubsection"],
Cell[59942, 1209, 2199, 49, 123, "Subsubtitle"],
Cell[62144, 1260, 795, 11, 67, "Subsubsection"],
Cell[62942, 1273, 1477, 42, 251, "Code"],
Cell[64422, 1317, 1504, 42, 271, "Code"],
Cell[65929, 1361, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[66079, 1368, 3426, 57, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[69530, 1429, 4892, 79, 103, "Subsubtitle"],
Cell[74425, 1510, 204, 3, 67, "Subsubsection"],
Cell[74632, 1515, 971, 18, 50, "Subsubsection"],
Cell[75606, 1535, 2231, 49, 124, "Subsubtitle"],
Cell[77840, 1586, 795, 11, 67, "Subsubsection"],
Cell[78638, 1599, 1699, 47, 251, "Code"],
Cell[80340, 1648, 1727, 47, 271, "Code"],
Cell[82070, 1697, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[82220, 1704, 4977, 83, 103, "Subsubtitle"],
Cell[87200, 1789, 267, 4, 67, "Subsubsection"],
Cell[87470, 1795, 971, 18, 50, "Subsubsection"],
Cell[88444, 1815, 3804, 96, 387, "Subsubtitle"],
Cell[92251, 1913, 795, 11, 67, "Subsubsection"],
Cell[93049, 1926, 3162, 93, 300, "Code"],
Cell[96214, 2021, 3208, 94, 320, "Code"],
Cell[99425, 2117, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[99575, 2124, 5001, 82, 103, "Subsubtitle"],
Cell[104579, 2208, 263, 4, 67, "Subsubsection"],
Cell[104845, 2214, 1039, 19, 50, "Subsubsection"],
Cell[105887, 2235, 3267, 85, 242, "Subsubtitle"],
Cell[109157, 2322, 795, 11, 67, "Subsubsection"],
Cell[109955, 2335, 3198, 92, 349, "Code"],
Cell[113156, 2429, 3222, 92, 369, "Code"],
Cell[116381, 2523, 113, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[116555, 2532, 3406, 55, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[119986, 2591, 4683, 73, 103, "Subsubtitle"],
Cell[124672, 2666, 204, 3, 67, "Subsubsection"],
Cell[124879, 2671, 762, 11, 47, "Subsubsection"],
Cell[125644, 2684, 2363, 55, 116, "Subsubtitle"],
Cell[128010, 2741, 795, 11, 67, "Subsubsection"],
Cell[128808, 2754, 1719, 49, 251, "Code"],
Cell[130530, 2805, 1771, 50, 271, "Code"],
Cell[132304, 2857, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[132454, 2864, 3517, 59, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[135996, 2927, 5127, 86, 103, "Subsubtitle"],
Cell[141126, 3015, 101, 1, 67, "Subsubsection"],
Cell[141230, 3018, 967, 18, 50, "Subsubsection"],
Cell[142200, 3038, 3555, 90, 375, "Subsubtitle"],
Cell[145758, 3130, 795, 11, 67, "Subsubsection"],
Cell[146556, 3143, 3057, 86, 300, "Code"],
Cell[149616, 3231, 3103, 87, 320, "Code"],
Cell[152722, 3320, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[152872, 3327, 5153, 87, 103, "Subsubtitle"],
Cell[158028, 3416, 159, 2, 67, "Subsubsection"],
Cell[158190, 3420, 997, 19, 50, "Subsubsection"],
Cell[159190, 3441, 3734, 98, 394, "Subsubtitle"],
Cell[162927, 3541, 795, 11, 67, "Subsubsection"],
Cell[163725, 3554, 3504, 103, 300, "Code"],
Cell[167232, 3659, 3551, 104, 320, "Code"],
Cell[170786, 3765, 113, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[170960, 3774, 3477, 56, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[174462, 3834, 4680, 73, 103, "Subsubtitle"],
Cell[179145, 3909, 204, 3, 67, "Subsubsection"],
Cell[179352, 3914, 762, 11, 47, "Subsubsection"],
Cell[180117, 3927, 2412, 55, 116, "Subsubtitle"],
Cell[182532, 3984, 795, 11, 67, "Subsubsection"],
Cell[183330, 3997, 1743, 49, 251, "Code"],
Cell[185076, 4048, 1739, 49, 271, "Code"],
Cell[186818, 4099, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[186968, 4106, 3543, 60, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[190536, 4170, 5122, 86, 103, "Subsubtitle"],
Cell[195661, 4258, 101, 1, 67, "Subsubsection"],
Cell[195765, 4261, 963, 18, 50, "Subsubsection"],
Cell[196731, 4281, 3529, 89, 375, "Subsubtitle"],
Cell[200263, 4372, 795, 11, 67, "Subsubsection"],
Cell[201061, 4385, 2990, 85, 300, "Code"],
Cell[204054, 4472, 2994, 85, 320, "Code"],
Cell[207051, 4559, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[207201, 4566, 5153, 87, 103, "Subsubtitle"],
Cell[212357, 4655, 159, 2, 67, "Subsubsection"],
Cell[212519, 4659, 993, 19, 50, "Subsubsection"],
Cell[213515, 4680, 3808, 99, 394, "Subsubtitle"],
Cell[217326, 4781, 795, 11, 67, "Subsubsection"],
Cell[218124, 4794, 3434, 101, 300, "Code"],
Cell[221561, 4897, 3437, 101, 320, "Code"],
Cell[225001, 5000, 113, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[225175, 5009, 3789, 61, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[228989, 5074, 4914, 77, 53, "Subsubtitle"],
Cell[233906, 5153, 101, 1, 35, "Subsubsection"],
Cell[234010, 5156, 1788, 46, 48, "Subsubsection"],
Cell[235801, 5204, 941, 19, 26, "Subsubsection"],
Cell[236745, 5225, 3241, 70, 73, "Subsubtitle"],
Cell[239989, 5297, 795, 11, 35, "Subsubsection"],
Cell[240787, 5310, 2839, 68, 104, "Code"],
Cell[243629, 5380, 2886, 68, 114, "Code"],
Cell[246518, 5450, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[246668, 5457, 4998, 79, 65, "Subsubtitle"],
Cell[251669, 5538, 161, 2, 35, "Subsubsection"],
Cell[251833, 5542, 1398, 33, 43, "Subsubsection"],
Cell[253234, 5577, 879, 12, 25, "Subsubsection"],
Cell[254116, 5591, 2493, 50, 65, "Subsubtitle"],
Cell[256612, 5643, 795, 11, 35, "Subsubsection"],
Cell[257410, 5656, 2326, 54, 104, "Code"],
Cell[259739, 5712, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[259889, 5719, 5317, 89, 53, "Subsubtitle"],
Cell[265209, 5810, 101, 1, 35, "Subsubsection"],
Cell[265313, 5813, 1790, 46, 48, "Subsubsection"],
Cell[267106, 5861, 941, 19, 26, "Subsubsection"],
Cell[268050, 5882, 3901, 90, 73, "Subsubtitle"],
Cell[271954, 5974, 795, 11, 35, "Subsubsection"],
Cell[272752, 5987, 3512, 92, 129, "Code"],
Cell[276267, 6081, 3511, 92, 139, "Code"],
Cell[279781, 6175, 113, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)